home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / htmlso_1 / other.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-04-09  |  2.5 KB  |  84 lines
  1. VERSION 5.00
  2. Begin VB.Form Form11 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Other Size..."
  5.    ClientHeight    =   1695
  6.    ClientLeft      =   3210
  7.    ClientTop       =   2250
  8.    ClientWidth     =   2940
  9.    BeginProperty Font 
  10.       Name            =   "MS Sans Serif"
  11.       Size            =   8.25
  12.       Charset         =   177
  13.       Weight          =   700
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    ForeColor       =   &H80000008&
  19.    LinkTopic       =   "Form11"
  20.    MaxButton       =   0   'False
  21.    MinButton       =   0   'False
  22.    PaletteMode     =   1  'UseZOrder
  23.    ScaleHeight     =   1695
  24.    ScaleWidth      =   2940
  25.    Begin VB.CommandButton cancel 
  26.       BackColor       =   &H80000005&
  27.       Caption         =   "Cancel"
  28.       Height          =   375
  29.       Left            =   480
  30.       TabIndex        =   1
  31.       Top             =   1200
  32.       Width           =   1935
  33.    End
  34.    Begin VB.CommandButton ok 
  35.       BackColor       =   &H80000005&
  36.       Caption         =   "OK"
  37.       Default         =   -1  'True
  38.       Height          =   375
  39.       Left            =   480
  40.       TabIndex        =   3
  41.       Top             =   720
  42.       Width           =   1935
  43.    End
  44.    Begin VB.TextBox Text1 
  45.       Height          =   375
  46.       Left            =   1200
  47.       TabIndex        =   0
  48.       Top             =   120
  49.       Width           =   1575
  50.    End
  51.    Begin VB.Label Label1 
  52.       BackStyle       =   0  'Transparent
  53.       Caption         =   "Other Size:"
  54.       BeginProperty Font 
  55.          Name            =   "Arial"
  56.          Size            =   9.75
  57.          Charset         =   177
  58.          Weight          =   700
  59.          Underline       =   0   'False
  60.          Italic          =   0   'False
  61.          Strikethrough   =   0   'False
  62.       EndProperty
  63.       Height          =   255
  64.       Left            =   120
  65.       TabIndex        =   2
  66.       Top             =   240
  67.       Width           =   1095
  68.    End
  69. Attribute VB_Name = "Form11"
  70. Attribute VB_GlobalNameSpace = False
  71. Attribute VB_Creatable = False
  72. Attribute VB_PredeclaredId = True
  73. Attribute VB_Exposed = False
  74. Option Explicit
  75. Sub cancel_Click()
  76. Unload Me
  77. End Sub
  78. Sub ok_Click()
  79. Dim l0020 As Variant
  80. l0020 = Text1.Text
  81. Form1.main.SelText = "<font size=" & Chr(34) & l0020 & Chr(34) & ">" + Form1.main.SelText + "</font>"
  82. Unload Me
  83. End Sub
  84.